home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / gs_init.ps < prev    next >
Text File  |  2002-04-16  |  62KB  |  1,883 lines
  1. % (C) 1989, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_init.ps,v 1.40.2.9 2002/04/15 06:49:43 giles Exp $
  17. % Initialization file for the interpreter.
  18. % When this is run, systemdict is still writable.
  19.  
  20. % Comment lines of the form
  21. %    %% Replace <n> <file(s)>
  22. % indicate places where the next <n> lines should be replaced by
  23. % the contents of <file(s)>, when creating a single merged init file.
  24.  
  25. % The interpreter can call out to PostScript code.  All procedures
  26. % called in this way, and no other procedures defined in these
  27. % initialization files, have names that begin with %, e.g.,
  28. % (%Type1BuildChar) cvn.
  29.  
  30. % Check the interpreter revision.  NOTE: the interpreter code requires
  31. % that the first non-comment token in this file be an integer.
  32. 705
  33. dup revision ne
  34.  { (gs: Interpreter revision \() print revision 10 string cvs print
  35.    (\) does not match gs_init.ps revision \() print 10 string cvs print
  36.    (\).\n) print flush null 1 .quit
  37.  }
  38. if pop
  39.  
  40. % Acquire userdict, and set its length if necessary.
  41. /userdict where
  42.  { pop userdict maxlength 0 eq }
  43.  { true }
  44. ifelse
  45. systemdict exch
  46.  {        % userdict wasn't already set up by iinit.c.
  47.    dup /userdict
  48.    currentdict dup 200 .setmaxlength        % userdict
  49.    .forceput            % userdict is local, systemdict is global
  50.  }
  51. if begin
  52.  
  53. % Define dummy local/global operators if needed.
  54. systemdict /.setglobal known
  55.  { true .setglobal
  56.  }
  57.  { /.setglobal { pop } bind def
  58.    /.currentglobal { false } bind def
  59.    /.gcheck { pop false } bind def
  60.  }
  61. ifelse
  62.  
  63. % Define .languagelevel if needed.
  64. systemdict /.languagelevel known not { /.languagelevel 1 def } if
  65.  
  66. % Optionally choose a default paper size other than U.S. letter.
  67. % (a4) /PAPERSIZE where { pop pop } { /PAPERSIZE exch def } ifelse
  68.  
  69. % Turn on array packing for the rest of initialization.
  70. true setpacking
  71.  
  72. % Define the old MS-DOS EOF character as a no-op.
  73. % This is a hack to get around the absurd habit of MS-DOS editors
  74. % of adding an EOF character at the end of the file.
  75. <1a> cvn { } def
  76.  
  77. % Acquire the debugging flags.
  78. currentdict /DEBUG known   /DEBUG exch def
  79.   /VMDEBUG
  80.     DEBUG {{print mark
  81.             systemdict /level2dict known
  82.          { .currentglobal dup false .setglobal vmstatus
  83.            true .setglobal vmstatus 3 -1 roll pop
  84.            6 -2 roll pop .setglobal
  85.          }
  86.          { vmstatus 3 -1 roll pop
  87.          }
  88.         ifelse usertime 16#fffff and counttomark
  89.           { ( ) print (           ) cvs print }
  90.         repeat pop
  91.         ( ) print systemdict length (    ) cvs print
  92.         ( ) print countdictstack (  ) cvs print
  93.         ( <) print count (    ) cvs print (>\n) print flush
  94.       }}
  95.       {{pop
  96.       }}
  97.      ifelse
  98.   def
  99.  
  100. currentdict /BATCH known   /BATCH exch def
  101. currentdict /DELAYBIND known   /DELAYBIND exch def
  102. currentdict /DISKFONTS known   /DISKFONTS exch def
  103. currentdict /DOINTERPOLATE .knownget { /INTERPOLATE exch def } if
  104. currentdict /ESTACKPRINT known   /ESTACKPRINT exch def
  105. currentdict /FAKEFONTS known   /FAKEFONTS exch def
  106. currentdict /FIXEDMEDIA known   /FIXEDMEDIA exch def
  107. currentdict /FIXEDRESOLUTION known   /FIXEDRESOLUTION exch def
  108. currentdict /LOCALFONTS known   /LOCALFONTS exch def
  109. currentdict /NOBIND known   /NOBIND exch def
  110. /.bind /bind load def
  111. NOBIND { /bind { } def } if
  112. currentdict /NOCACHE known   /NOCACHE exch def
  113. currentdict /NOCCFONTS known   /NOCCFONTS exch def
  114. currentdict /NOCIE known   /NOCIE exch def
  115. currentdict /NODISPLAY known   not /DISPLAYING exch def
  116. currentdict /NOFONTMAP known   /NOFONTMAP exch def
  117. currentdict /NOCIDFONTMAP known /NOCIDFONTMAP exch def
  118. currentdict /NOFONTPATH known   /NOFONTPATH exch def
  119. currentdict /NOGC known   /NOGC exch def
  120. currentdict /NOINTERPOLATE .knownget { /INTERPOLATE exch not def } if
  121. currentdict /NOPAGEPROMPT known   /NOPAGEPROMPT exch def
  122. currentdict /NOPAUSE known   /NOPAUSE exch def
  123. currentdict /NOPLATFONTS known   /NOPLATFONTS exch def
  124. currentdict /NOPROMPT known   /NOPROMPT exch def
  125. % The default value of ORIENT1 is true, not false.
  126. currentdict /ORIENT1 known not { /ORIENT1 true def } if
  127. currentdict /OSTACKPRINT known   /OSTACKPRINT exch def
  128. currentdict /OUTPUTFILE known    % obsolete
  129.  { /OutputFile /OUTPUTFILE load def
  130.    currentdict /OUTPUTFILE .undef
  131.  } if
  132. currentdict /QUIET known   /QUIET exch def
  133. % DELAYSAFER is effectively the same as newer NOSAFER
  134. currentdict /DELAYSAFER known { /DELAYSAFER true def /NOSAFER true def } if
  135. currentdict /PARANOIDSAFER known /PARANOIDSAFER exch def
  136. /SAFER currentdict /NOSAFER known {
  137.   false
  138. } {
  139.   currentdict /SAFER known PARANOIDSAFER or
  140. }
  141. ifelse def
  142. currentdict /SHORTERRORS known   /SHORTERRORS exch def
  143. currentdict /STRICT known   /STRICT exch def
  144. currentdict /TTYPAUSE known   /TTYPAUSE exch def
  145. currentdict /WRITESYSTEMDICT known   /WRITESYSTEMDICT exch def
  146.  
  147. % Acquire environment variables.
  148. currentdict /DEVICE known not
  149.  { (GS_DEVICE) getenv { /DEVICE exch def } if } if
  150.  
  151. (START) VMDEBUG
  152.  
  153. % Open the standard files, so they will be open at the outermost save level.
  154. (%stdin) (r) file pop
  155. (%stdout) (w) file pop
  156. (%stderr) (w) file pop
  157.  
  158. /.currentuserparams where {
  159.   pop mark
  160.     % The Adobe implementations appear to have very large maximum
  161.     % stack sizes.  This turns out to actually make a difference,
  162.     % since some badly-behaved files include extremely long procedures,
  163.     % or construct huge arrays on the operand stack.
  164.     % We reset the stack sizes now so that we don't have to worry
  165.     % about overflowing the (rather small) built-in stack sizes
  166.     % during initialization.
  167.   /MaxDictStack 500
  168.   /MaxExecStack 5000
  169.   /MaxOpStack 50000
  170.   .dicttomark .setuserparams
  171. } if
  172.  
  173. % Define a procedure for skipping over an unneeded section of code.
  174. % This avoids allocating space for the skipped procedures.
  175. % We can't use readline, because that imposes a line length limit.
  176. /.skipeof    % <string> .skipeof -
  177.  { currentfile exch 1 exch .subfiledecode flushfile
  178.  } .bind def
  179.  
  180. % Define procedures to assist users who don't read the documentation.
  181. userdict begin
  182. /help
  183.  { (Enter PostScript commands.  '(filename) run' runs a file, 'quit' exits.\n)
  184.    print flush
  185.  } .bind def
  186. end
  187.  
  188. % Define =string, which is used by some PostScript programs even though
  189. % it isn't documented anywhere.
  190. % Put it in userdict so that each context can have its own copy.
  191. userdict /=string 256 string put
  192.  
  193. % Print the greeting.
  194.  
  195. /printgreeting
  196.  { mark
  197.    product (Ghostscript) search
  198.     { pop pop pop
  199.       (This software comes with NO WARRANTY: see the file PUBLIC for details.\n)
  200.     }
  201.     { pop
  202.     }
  203.    ifelse
  204.    (\n) copyright
  205.    (\)\n) revisiondate 10 mod revisiondate 10 idiv 10 mod (-)
  206.    revisiondate 100 idiv 10 mod revisiondate 1000 idiv 10 mod (-)
  207.    revisiondate 10000 idiv ( \()
  208.    revision 10 mod
  209.    revision 100 mod 10 idiv (.)
  210.    revision 100 idiv ( )
  211.    product
  212.    counttomark
  213.     { (%stdout) (w) file exch 0 .writecvp
  214.     } repeat pop
  215.  } .bind def
  216.  
  217. QUIET not { printgreeting flush } if
  218.  
  219. % Define a special version of def for making operator procedures.
  220. /obind {    % <name> <proc> obind <name> <oper>
  221.   1 index exch .makeoperator
  222. } .bind def
  223. /odef {        % <name> <proc> odef -
  224.   1 index exch .makeoperator def
  225. } .bind def
  226.  
  227. % Define a special version of def for storing local objects into global
  228. % dictionaries.  Like .forceput, this exists only during initialization.
  229. /.forcedef {        % <key> <value> .forcedef -
  230.   currentdict 3 1 roll .forceput
  231. } .bind odef
  232.  
  233. % Define procedures for accessing variables in systemdict and userdict
  234. % regardless of the contents of the dictionary stack.
  235. /.systemvar {        % <name> .systemvar <value>
  236.   //systemdict exch get
  237. } .bind odef
  238. /.userdict {        % - .userdict <dict>
  239.   /userdict .systemvar
  240. } .bind odef
  241. /.uservar {        % <name> .uservar <value>
  242.   .userdict exch get
  243. } .bind odef
  244.  
  245. % If we're delaying binding, remember everything that needs to be bound later.
  246. DELAYBIND NOBIND not and
  247.  { .currentglobal false .setglobal
  248.    systemdict /.delaybind 1500 array .forceput
  249.    .setglobal
  250.    userdict /.delaycount 0 put
  251.     % When we've done the delayed bind, we want to stop saving.
  252.     % Detect this by the disappearance of .delaybind.
  253.    /bind
  254.     { /.delaybind .systemvar dup length 0 ne
  255.        { .delaycount 2 index put
  256.          .userdict /.delaycount .delaycount 1 add put
  257.        }
  258.        { pop .bind
  259.        }
  260.       ifelse
  261.     } .bind def
  262.  } if
  263.  
  264. %**************** BACKWARD COMPATIBILITY ****************
  265. /hwsizedict mark /HWSize null .dicttomark readonly def
  266. /copyscanlines {        % <device> <y> <string> copyscanlines <substr>
  267.   0 3 1 roll 3 index //hwsizedict .getdeviceparams
  268.   exch pop exch pop aload pop 3 2 roll
  269.   0 exch null exch .getbitsrect exch pop
  270. } bind odef
  271. currentdict /hwsizedict .undef
  272. /getdeviceprops
  273.  { null .getdeviceparams
  274.  } bind odef
  275. /.putdeviceprops
  276.  { null true counttomark 1 add 3 roll .putdeviceparams
  277.    dup type /booleantype ne
  278.     { dup mark eq { /unknown /rangecheck } if
  279.       counttomark 4 add 1 roll cleartomark pop pop pop
  280.       /.putdeviceprops load exch signalerror
  281.     }
  282.    if
  283.  } bind odef
  284. /.currentfilladjust { .currentfilladjust2 pop } bind odef
  285. /.setfilladjust { dup .setfilladjust2 } bind odef
  286. /.writecvs { 0 .writecvp } bind odef
  287. %**************** DEPRECATED PROCEDURES ****************
  288. %**************** DO NOT USE THESE IN NEW CODE ****************
  289. /max { .max } bind def        % use .max instead
  290. /min { .min } bind def        % use .min instead
  291. /unread /.unread load def    % use .peekstring instead
  292. %**************** END OF BACKWARD COMPATIBILITY SECTION ****************
  293.  
  294. % Define predefined procedures substituting for operators,
  295. % in alphabetical order.
  296.  
  297. userdict /#copies 1 put
  298. % Adobe implementations don't accept /[ or /], so we don't either.
  299. ([) cvn
  300.     /mark load def
  301. (]) cvn
  302.     {counttomark array astore exch pop} odef
  303. % .beginpage is redefined if setpagedevice is present.
  304. /.beginpage { } odef
  305. % In LanguageLevel 3, copypage erases the page.
  306. /copypage {
  307.     .languagelevel 3 ge
  308.     dup { 0 } { 1 } ifelse .endpage {
  309.       .currentnumcopies 1 index .outputpage
  310.       (>>copypage, press <return> to continue<<\n) .confirm
  311.       dup { erasepage } if
  312.     } if pop .beginpage
  313. } odef
  314. /currentmatrix {
  315.     .currentmatrix 6 index astore pop
  316. } odef
  317. % .currentnumcopies is redefined in Level 2.
  318. /.currentnumcopies { #copies } odef
  319. /setcolorscreen where { pop        % not in all Level 1 configurations
  320.    /currentcolorscreen
  321.     { .currenthalftone
  322.        { { 60 exch 0 exch 3 copy 6 copy }    % halftone - not possible
  323.          { 3 copy 6 copy }            % screen
  324.          { }                % colorscreen
  325.        }
  326.       exch get exec
  327.     } odef
  328. } if
  329. /currentscreen
  330.     { .currenthalftone
  331.        { { 60 exch 0 exch }            % halftone - not possible
  332.          { }                % screen
  333.          { 12 3 roll 9 { pop } repeat }    % colorscreen
  334.        }
  335.       exch get exec
  336.     } odef
  337. /.echo /echo load def
  338. userdict /.echo.mode true put
  339. /echo    {dup /.echo.mode exch store .echo} odef
  340. /eexec {
  341.     % Rebind .currentresourcefile if it is the source for the eexec.
  342.   dup 55665 //filterdict /eexecDecode get exec
  343.   cvx exch .currentresourcefile eq
  344.   //systemdict begin { {exec} .execasresource } { exec } ifelse
  345.     % Only pop systemdict if it is still the top element,
  346.     % because this is apparently what Adobe interpreters do.
  347.   currentdict //systemdict eq { end } if
  348. } odef
  349. % .endpage is redefined if setpagedevice is present.
  350. /.endpage { 2 ne } odef
  351. % erasepage mustn't use gsave/grestore, because we call it before
  352. % the graphics state stack has been fully initialized.
  353. /erasepage
  354.     { /currentcolor where
  355.        { pop currentcolor currentcolorspace { setcolorspace setcolor } }
  356.        { /currentcmykcolor where
  357.           { pop currentcmykcolor { setcmykcolor } }
  358.           { currentrgbcolor { setrgbcolor } }
  359.          ifelse
  360.        }
  361.       ifelse 1 setgray .fillpage exec
  362.     } odef
  363. % To satisfy the Genoa FTS, executive must be a procedure, not an operator.
  364. /executive
  365.     { { prompt
  366.          { (%statementedit) (r) file } stopped
  367.          { pop pop $error /errorname get /undefinedfilename eq
  368.         { .clearerror exit } if        % EOF
  369.            handleerror null        % ioerror??
  370.          }
  371.         if
  372.         cvx { .runexec } execute
  373.       } loop
  374.     } bind def
  375. /filter
  376.     { //filterdict 1 index .knownget
  377.        { exch pop exec }
  378.        { /filter load /undefined signalerror }
  379.       ifelse
  380.     } odef
  381. /handleerror
  382.     { /errordict .systemvar /handleerror get exec } bind def
  383. /identmatrix [1.0 0.0 0.0 1.0 0.0 0.0] readonly def
  384. /identmatrix
  385.     { dup 0 //identmatrix putinterval } odef
  386. /languagelevel 1 def        % gs_lev2.ps may change this
  387. /makeimagedevice { false makewordimagedevice } odef
  388. /matrix    { 6 array identmatrix } odef
  389. /pathbbox
  390.     { false .pathbbox
  391.     } odef
  392. % .promptmsg is redefined if the interpreter includes readline support.
  393. /.promptmsg {
  394.     (GS) print
  395.     count 0 ne { (<) print count =only } if
  396.     (>) print flush
  397. } bind def
  398. /prompt    { flush flushpage NOPROMPT not { .promptmsg } if } bind def
  399. /pstack    { 0 1 count 3 sub { index == } for } bind def
  400. /putdeviceprops
  401.     { .putdeviceprops { erasepage } if } odef
  402. /quit    { /quit load 0 .quit } odef
  403. /run    { dup type /filetype ne { (r) file } if
  404.         % We must close the file when execution terminates,
  405.         % regardless of the state of the stack,
  406.         % and then propagate an error, if any.
  407.       cvx .runexec
  408.     } odef
  409. % Execute a file.
  410. % Level 2 uses 2 .stop to clear the e-stack for a successful startjob:
  411. % we detect that here, since we need to handle this even if we start out
  412. % without job control in effect.
  413. %
  414. % What we push on the e-stack is the following to be executed in this order:
  415. %    <lit-file|fileproc> .runexec1 <lit-file|fileproc> .runexec2
  416. /.runexec1 {        % <file|fileproc> .runexec1 -
  417.   dup type /filetype ne { cvx exec } if
  418.   cvx null 2 .stopped
  419.     % If we got back here from a startjob, just keep going.
  420.     % startjob replaces the null on the o-stack with a procedure
  421.     % to be executed when we get back here.
  422.   dup null ne { exec true } { pop false } ifelse
  423. } bind def
  424. /.runexec2 {        % <continue> <file|fileproc> .runexec2 -
  425.   exch {
  426.     .runexec
  427.   } {
  428.     dup type /filetype ne { cvx exec } if
  429.     closefile
  430.   } ifelse
  431. } bind def
  432. /.runexec {        % <file|fileproc> .runexec -
  433.   cvlit /.runexec1 cvx 1 index /.runexec2 cvx 4 .execn
  434. } bind def
  435. % The following is only for compatibility with Adobe interpreters.
  436. /setdash {
  437.     1 index length 11 gt { /setdash load /limitcheck signalerror } if
  438.     //setdash
  439. } odef
  440. /setdevice
  441.     { .setdevice { erasepage } if } odef
  442. /setlinecap {
  443.     dup 2 gt { /setlinecap load /rangecheck signalerror } if
  444.     .setlinecap
  445. } odef
  446. /setlinejoin {
  447.     dup 2 gt { /setlinejoin load /rangecheck signalerror } if
  448.     .setlinejoin
  449. } odef
  450. /setmatrix {
  451.     dup aload pop .setmatrix pop
  452. } odef
  453. /showpage {
  454.     0 .endpage .doneshowpage {
  455.       .currentnumcopies true .outputpage
  456.       (>>showpage, press <return> to continue<<\n) .confirm
  457.       erasepage
  458.     } if initgraphics .beginpage
  459. } odef
  460. % Code output by Adobe Illustrator relies on the fact that
  461. % `stack' is a procedure, not an operator!!!
  462. /stack    { 0 1 count 3 sub { index = } for } bind def
  463. /start    { BATCH { null 0 .quit } { executive } ifelse } def
  464. % Internal uses of stopped that aren't going to do a stop if an error occurs
  465. % should use .internalstopped to avoid setting newerror et al.
  466. /.internalstopped { null 1 .stopped null ne } bind def
  467. /store {    % Don't alter operands before completing.
  468.     1 index where { 2 index 2 index put pop pop } { def } ifelse
  469. } odef
  470. /.typenames mark .typenames counttomark packedarray exch pop def
  471. /type {
  472.     //.typenames .type
  473. } odef
  474. currentdict /.typenames .undef
  475. % When running in Level 1 mode, this interpreter is supposed to be
  476. % compatible with PostScript "version" 54.0 (I think).
  477. /version (54.0) readonly def
  478. /.wheredict 10 dict def
  479. /.where /where load def
  480. /where {
  481.     //.wheredict 1 index .knownget { exec } { .where } ifelse
  482. } odef
  483.  
  484. % internaldict is defined in systemdict, but the dictionary is allocated
  485. % in local VM.  However, the procedure must be global, since it is an
  486. % "operator" and must be bind-able into global procedures.
  487. % We make a procedure for creating it, since we must create a new one
  488. % for each context with private local VM.
  489. /.makeinternaldict {
  490.   .currentglobal true .setglobal
  491.     [ /dup .systemvar 1183615869 /eq .systemvar
  492.     [ /pop .systemvar null ] cvx
  493.     false .setglobal
  494.     dup 1 10 dict .forceput    % proc is global, dict is local
  495.     true .setglobal
  496.     [ /internaldict /cvx .systemvar /invalidaccess /signalerror cvx ] cvx
  497.       /ifelse .systemvar
  498.     ] cvx executeonly
  499.   exch .setglobal
  500. } odef
  501. systemdict /internaldict dup .makeinternaldict .makeoperator
  502. .forceput        % proc is local, systemdict is global
  503. % Move superexec to internaldict if superexec is defined.
  504. currentdict /superexec .knownget {
  505.   1183615869 internaldict /superexec 3 -1 roll put
  506.   currentdict /superexec .undef
  507. } if
  508.  
  509. % Define some additional built-in procedures (beyond the ones defined by
  510. % the PostScript Language Reference Manual).
  511. % Warning: these are not guaranteed to stay the same from one release
  512. % to the next!
  513. /concatstrings    %    (str1) (str2) concatstrings (str1str2)
  514.     { exch dup length 2 index length add string    % str2 str1 new
  515.       dup dup 4 2 roll copy        % str2 new new new1
  516.       length 4 -1 roll putinterval
  517.     } bind def
  518. /copyarray
  519.     { dup length array copy } bind def
  520. % Copy a dictionary per the Level 2 spec even in Level 1.
  521. /.copydict        % <fromdict> <todict> .copydict <todict>
  522.     { dup 3 -1 roll { put dup } forall pop } bind def
  523. /copystring
  524.     { dup length string copy } bind def
  525. /findlibfile {
  526.     .libfile { dup .filename pop exch true } { false } ifelse
  527. } odef
  528. /.growdictlength    % get size for growing a dictionary
  529.     { length 3 mul 2 idiv 1 add
  530.     } bind def
  531. /.growdict        % grow a dictionary
  532.     { dup .growdictlength .setmaxlength
  533.     } bind def
  534. /.growput        % put, grow the dictionary if needed
  535.     { 2 index length 3 index maxlength eq
  536.        { 3 copy pop known not { 2 index .growdict } if
  537.        } if
  538.       put
  539.     } bind def
  540. % .localvmarray may be an operator: see zsysvm.c.
  541. /.localvmarray where {
  542.   pop
  543. } {
  544.   /.localvmarray {
  545.     .currentglobal false .setglobal
  546.     exch array exch .setglobal
  547.   } bind def
  548. } ifelse
  549. /.localvmdict where {
  550.   pop
  551. } {
  552.   /.localvmdict {
  553.     .currentglobal false .setglobal
  554.     exch dict exch .setglobal
  555.   } bind def
  556. } ifelse
  557. /.packtomark
  558.     { counttomark packedarray exch pop } bind def
  559. /ppstack
  560.     { 0 1 count 3 sub { index === } for } bind def
  561. /runlibfile
  562.     {        % We don't want to bind 'run' into this procedure,
  563.             % since run may get redefined.
  564.       findlibfile
  565.        { exch pop /run .systemvar exec }
  566.        { /undefinedfilename signalerror }
  567.       ifelse
  568.     } bind def
  569. /selectdevice
  570.     { finddevice setdevice .setdefaultscreen } bind def
  571. /signalerror        % <object> <errorname> signalerror -
  572.     { /errordict .systemvar exch get exec } bind def
  573.  
  574. % Define the =[only] procedures.  Also define =print,
  575. % which is used by some PostScript programs even though
  576. % it isn't documented anywhere.
  577. /write=only {
  578.     .writecvs
  579. } bind def
  580. /write= {
  581.     1 index exch write=only (\n) writestring
  582. } bind def
  583. /=only    { (%stdout) (w) file exch write=only } bind def
  584. /=    { =only (\n) print } bind def
  585. /=print    /=only load def
  586. % Temporarily define == as = for the sake of runlibfile0.
  587. /== /= load def
  588.  
  589. % The following procedures are documented.
  590. /copydevice {        % <device> copydevice <newdevice>
  591.   false .copydevice2
  592. } odef
  593. /finddevice {        % <devicename> finddevice <device>
  594.   /devicedict .systemvar exch get
  595.   dup 1 get null eq {
  596.         % This is the first request for this type of device.
  597.         % Create a default instance now.
  598.         % Stack: [proto null]
  599.     .currentglobal true .setglobal exch
  600.     dup dup 0 get copydevice 1 exch put
  601.     exch .setglobal
  602.   } if 1 get
  603. } bind def
  604. /findprotodevice {    % <devicename> findprotodevice <protodevice>
  605.   /devicedict .systemvar exch get 0 get
  606. } bind def
  607.  
  608. % Run a resource file.  This allows us to distinguish resource objects
  609. % from objects coming from input files.
  610. userdict /.currentresourcefile null put
  611. /.execasresource {    % <file> <proc|runfile> .execasresource -
  612.   /stopped .systemvar
  613.   /.currentresourcefile .uservar
  614.         % Stack: file proc -stopped- currfile
  615.   .userdict /.currentresourcefile 5 index cvlit put
  616.   2 .execn        % stopped <file>
  617.   .userdict /.currentresourcefile 3 -1 roll put
  618.   { stop } if
  619. } bind def
  620. /.runresource {        % <file> .runresource -
  621.   { /run .systemvar exec } .execasresource
  622. } bind def
  623.  
  624. % Define procedures for getting and setting the current device resolution.
  625.  
  626. /gsgetdeviceprop    % <device> <propname> gsgetdeviceprop <value>
  627.  { 2 copy mark exch null .dicttomark .getdeviceparams
  628.    dup mark eq        % if true, not found
  629.     { pop dup /undefined signalerror }
  630.     { 5 1 roll pop pop pop pop }
  631.    ifelse
  632.  } bind def
  633. /gscurrentresolution    % - gscurrentresolution <[xres yres]>
  634.  { currentdevice /HWResolution gsgetdeviceprop
  635.  } bind def
  636. /gssetresolution    % <[xres yres]> gssetresolution -
  637.  { 2 array astore mark exch /HWResolution exch
  638.    currentdevice copydevice putdeviceprops setdevice
  639.  } bind def
  640.  
  641. % Define auxiliary procedures needed for the above.
  642. /shellarguments        % -> shell_arguments true (or) false
  643.     { /ARGUMENTS where
  644.        { /ARGUMENTS get dup type /arraytype eq
  645.           { aload pop /ARGUMENTS null store true }
  646.           { pop false }
  647.          ifelse }
  648.        { false } ifelse
  649.     } bind def
  650. /.confirm {
  651.   DISPLAYING NOPAUSE not TTYPAUSE or and {
  652.     % Print a message (unless NOPAGEPROMPT or NOPROMPT is true)
  653.     % and wait for the user to type something.
  654.     % If the user just types a newline, flush it.
  655.     NOPAGEPROMPT NOPROMPT or { pop } { print flush } ifelse
  656.     .confirmread
  657.   } {
  658.     pop
  659.   } ifelse
  660. } bind def
  661. /.confirmread {
  662.   TTYPAUSE {
  663.     (/dev/tty) (r) file dup read pop pop closefile
  664.   } {
  665.     .echo.mode false echo
  666.     (%stdin) (r) file dup read {
  667.       dup (\n) 0 get eq { pop pop } { unread } ifelse
  668.     } {
  669.       pop
  670.     } ifelse echo
  671.   } ifelse
  672. } bind def
  673.  
  674. % Define the procedure used by .runfile, .runstdin and .runstring
  675. % for executing user input.
  676. % This is called with a procedure or executable file on the operand stack.
  677. /.execute {        % <obj> .execute <stopped>
  678.   stopped $error /newerror get and
  679.    { handleerror flush true } { false } ifelse
  680. } bind def
  681. /execute {        % <obj> execute -
  682.   .execute pop
  683. } odef
  684. % Define an execute analogue of runlibfile0.
  685. /execute0 {        % <obj> execute0 -
  686.   .execute { /execute0 cvx 1 .quit } if
  687. } bind def
  688. % Define the procedure that the C code uses for running files
  689. % named on the command line.
  690. /.runfile {
  691.   { runlibfile } execute0
  692. } def
  693. % Define the procedure that the C code uses for running piped input.
  694. % We don't use the obvious { (%stdin) run }, because we want the file to be
  695. % reopened if a startjob does a restore.
  696. /.runstdin {
  697.   { { (%stdin) (r) file cvx } .runexec } execute0
  698. } bind def
  699. % Define the procedure that the C code uses for running commands
  700. % given on the command line with -c.  We turn the string into a file so that
  701. % .runexec can do the right thing with a startjob.
  702. /.runstring {
  703.   .currentglobal exch true .setglobal
  704.   0 () .subfiledecode
  705.   exch .setglobal cvx { .runexec } execute0
  706. } bind def
  707. % Define the procedure that the C code uses to set up for executing
  708. % a string that may be received in pieces.
  709. /.runstringbegin {
  710.   .currentglobal true .setglobal
  711.   { .needinput } bind 0 () .subfiledecode
  712.   exch .setglobal cvx .runexec
  713. } bind def
  714.  
  715. % Define a special version of runlibfile that aborts on errors.
  716. /runlibfile0
  717.     { cvlit dup /.currentfilename exch def
  718.        { findlibfile not { stop } if }
  719.       stopped
  720.        { (Can't find \(or open\) initialization file ) print
  721.          .currentfilename == flush /runlibfile0 cvx 1 .quit
  722.        } if
  723.       exch pop cvx stopped
  724.        { (While reading ) print .currentfilename print (:\n) print flush
  725.          handleerror /runlibfile0 1 .quit
  726.        } if
  727.     } bind def
  728. % Temporarily substitute it for the real runlibfile.
  729. /.runlibfile /runlibfile load def
  730. /runlibfile /runlibfile0 load def
  731.  
  732. % Create the error handling machinery.
  733. % Define the standard error handlers.
  734. % The interpreter has created the ErrorNames array.
  735. /.unstoppederrorhandler    % <command> <errorname> .unstoppederrorhandler -
  736.  {    % This is the handler that gets used for recursive errors,
  737.     % or errors outside the scope of a 'stopped'.
  738.    2 copy SHORTERRORS
  739.     { (%%[ Error: ) print =only flush
  740.       (; OffendingCommand: ) print =only ( ]%%) =
  741.     }
  742.     { (Unrecoverable error: ) print =only flush
  743.       ( in ) print = flush
  744.       count 2 gt
  745.        { (Operand stack:\n  ) print
  746.          count 1 sub -1 2 { (  ) print index =only flush } for
  747.      () = flush
  748.        } if
  749.     }
  750.    ifelse
  751.    -1 0 1 //ErrorNames length 1 sub
  752.     { dup //ErrorNames exch get 3 index eq
  753.        { not exch pop exit } { pop } ifelse
  754.     }
  755.    for exch pop .quit
  756.  } bind def
  757. /.errorhandler        % <command> <errorname> .errorhandler -
  758.   {        % Detect an internal 'stopped'.
  759.     1 .instopped { null eq { pop pop stop } if } if
  760.     $error /.inerror get 1 .instopped { pop } { pop true } ifelse
  761.      { .unstoppederrorhandler
  762.      } if    % detect error recursion
  763.     $error /globalmode .currentglobal false .setglobal put
  764.     $error /.inerror true put
  765.     $error /newerror true put
  766.     $error exch /errorname exch put
  767.     $error exch /command exch put
  768.     $error /recordstacks get $error /errorname get /VMerror ne and
  769.      {        % Attempt to store the stack contents atomically.
  770.        count array astore dup $error /ostack 4 -1 roll
  771.        countexecstack array execstack $error /estack 3 -1 roll
  772.        countdictstack array dictstack $error /dstack 3 -1 roll
  773.        put put put aload pop
  774.      }
  775.      { $error /dstack .undef
  776.        $error /estack .undef
  777.        $error /ostack .undef
  778.      }
  779.     ifelse
  780.     $error /position currentfile status
  781.      { currentfile { fileposition } .internalstopped { pop null } if
  782.      }
  783.      {        % If this was a scanner error, the file is no longer current,
  784.         % but the command holds the file, which may still be open.
  785.        $error /command get dup type /filetype eq
  786.         { { fileposition } .internalstopped { pop null } if }
  787.         { pop null }
  788.        ifelse
  789.      }
  790.     ifelse put
  791.         % During initialization, we don't reset the allocation
  792.         % mode on errors.
  793.     $error /globalmode get $error /.nosetlocal get and .setglobal
  794.     $error /.inerror false put
  795.     stop
  796.   } bind def
  797. % Define the standard handleerror.  We break out the printing procedure
  798. % (.printerror) so that it can be extended for binary output
  799. % if the Level 2 facilities are present.
  800.   /.printerror
  801.    { $error begin
  802.        /command load errorname SHORTERRORS
  803.     { (%%[ Error: ) print =only flush
  804.       (; OffendingCommand: ) print =only
  805.       errorinfo dup null eq {
  806.         pop
  807.       } {
  808.         (;\nErrorInfo:) print
  809.         dup type /arraytype eq
  810.           { { ( ) print =only } forall }
  811.           { ( ) print =only }
  812.         ifelse
  813.       } ifelse
  814.           ( ]%%) = flush
  815.     }
  816.     { (Error: ) print ==only flush
  817.       ( in ) print ==only flush
  818.       errorinfo dup null eq {
  819.         pop
  820.       } {
  821.         (\nAdditional information: ) print ==only flush
  822.       } ifelse
  823.       .printerror_long
  824.     }
  825.        ifelse
  826.        .clearerror
  827.      end
  828.      flush
  829.     } bind def     
  830.   /.printerror_long            % long error printout,
  831.                     % $error is on the dict stack
  832.    {    % Push the (anonymous) stack printing procedure.
  833.     %  <heading> <==flag> <override-name> <stackname> proc
  834.        {
  835.      currentdict exch .knownget    % stackname defined in $error?
  836.      {
  837.        4 1 roll            % stack: <stack> <head> <==flag> <over>
  838.        errordict exch .knownget    % overridename defined?
  839.        { 
  840.          exch pop exch pop exec    % call override with <stack>
  841.        }
  842.        { 
  843.          exch print exch        % print heading. stack <==flag> <stack>
  844.          1 index not { () = } if
  845.          { 1 index { (\n    ) } { (   ) } ifelse print
  846.            dup type /dicttype eq
  847.            {
  848.          (--dict:) print
  849.          dup rcheck {
  850.            dup length =only (/) print dup maxlength =only
  851.            dup wcheck not { ((ro)) print } if
  852.          } if
  853.          /gcheck where {
  854.            pop gcheck { ((G)) } { ((L)) } ifelse print
  855.          } {
  856.            pop
  857.          } ifelse (--) print
  858.            }
  859.            {
  860.          dup type /stringtype eq 2 index or
  861.          { ==only } { =only } ifelse
  862.            } ifelse
  863.          } forall
  864.          pop
  865.        }
  866.        ifelse            % overridden
  867.      }
  868.      { pop pop pop
  869.      }
  870.      ifelse                % stack known
  871.        }
  872.  
  873.        (\nOperand stack:) OSTACKPRINT /.printostack /ostack 4 index exec
  874.        (\nExecution stack:) ESTACKPRINT /.printestack /estack 4 index exec
  875.        (\nBacktrace:) true /.printbacktrace /backtrace 4 index exec
  876.        (\nDictionary stack:) false /.printdstack /dstack 4 index exec
  877.        () =
  878.        pop    % printing procedure
  879.  
  880.        errorname /VMerror eq
  881.     { (VM status:) print mark vmstatus
  882.       counttomark { ( ) print counttomark -1 roll dup =only } repeat
  883.       cleartomark () =
  884.     } if
  885.  
  886.        .languagelevel 2 ge
  887.     { (Current allocation mode is ) print
  888.       globalmode { (global\n) } { (local\n) } ifelse print
  889.     } if
  890.  
  891.        .oserrno dup 0 ne
  892.     { (Last OS error: ) print
  893.       errorname /VMerror ne
  894.        { dup .oserrorstring { = pop } { = } ifelse }
  895.        { = }
  896.       ifelse
  897.     }
  898.     { pop
  899.     }
  900.        ifelse
  901.  
  902.        position null ne
  903.     { (Current file position is ) print position = }
  904.        if
  905.  
  906.    } bind def
  907. % Define a procedure for clearing the error indication.
  908. /.clearerror
  909.  { $error /newerror false put
  910.    $error /errorname null put
  911.    $error /errorinfo null put
  912.    0 .setoserrno
  913.  } bind def
  914.  
  915. % Define $error.  This must be in local VM.
  916. .currentglobal false .setglobal
  917. /$error 40 dict .forcedef    % $error is local, systemdict is global
  918.         % newerror, errorname, command, errorinfo,
  919.         % ostack, estack, dstack, recordstacks,
  920.         % binary, globalmode,
  921.         % .inerror, .nosetlocal, position,
  922.         % plus extra space for badly designed error handers.
  923. $error begin
  924.   /newerror false def
  925.   /recordstacks true def
  926.   /binary false def
  927.   /globalmode .currentglobal def
  928.   /.inerror false def
  929.   /.nosetlocal true def
  930.   /position null def
  931. end
  932. % Define errordict similarly.  It has one entry per error name,
  933. %   plus handleerror.  However, some astonishingly badly written PostScript
  934. %   files require it to have at least one empty slot.
  935. /errordict ErrorNames length 2 add dict
  936. .forcedef        % errordict is local, systemdict is global
  937. .setglobal        % contents of errordict are global
  938. errordict begin
  939.   ErrorNames
  940.    { mark 1 index systemdict /.errorhandler get /exec load .packtomark cvx def
  941.    } forall
  942. % The handlers for interrupt and timeout are special; there is no
  943. % 'current object', so they push their own name.
  944.    { /interrupt /timeout }
  945.    { mark 1 index dup systemdict /.errorhandler get /exec load .packtomark cvx def
  946.    } forall
  947. /handleerror
  948.  { /.printerror .systemvar exec
  949.  } bind def
  950. end
  951.  
  952. % Define the [write]==[only] procedures.
  953. /.dict 8 dict dup
  954. begin def
  955.   /.cvp {1 index exch 1 .writecvp} bind def
  956.   /.p {1 index exch writestring} bind def
  957.   /.p1 {2 index exch writestring} bind def
  958.   /.p2 {3 index exch writestring} bind def
  959.   /.print
  960.     { dup type .dict exch .knownget { exec } { .cvp } ifelse
  961.     } bind def
  962.   /arraytype
  963.     {dup rcheck
  964.       {() exch dup xcheck
  965.         {({) .p2
  966.          {exch .p1
  967.           1 index exch .print pop ( )} forall
  968.          (})}
  969.         {([) .p2
  970.          {exch .p1
  971.           1 index exch .print pop ( )} forall
  972.          (])}
  973.        ifelse exch pop .p}
  974.       {.cvp}
  975.      ifelse} bind def
  976.   /packedarraytype /arraytype load def
  977. {//.dict begin .print pop end}
  978.   bind
  979. end
  980.  
  981. /write==only exch def
  982. /write== {1 index exch write==only (\n) writestring} bind def
  983. /==only { (%stdout) (w) file exch write==only } bind def
  984. /== {==only (\n) print} bind def
  985.  
  986. % Define [write]===[only], an extension that prints dictionaries
  987. % in readable form and doesn't truncate strings.
  988. /.dict /write==only load 0 get dup length 2 add dict .copydict dup
  989. begin def
  990.   /dicttype
  991.     { dup rcheck
  992.        { (<< ) .p1
  993.           { 2 index 3 -1 roll .print pop ( ) .p1
  994.         1 index exch .print pop ( ) .p
  995.           }
  996.          forall (>>) .p
  997.        }
  998.        { .cvp
  999.        }
  1000.       ifelse
  1001.     } bind def
  1002.   /stringtype
  1003.     { 1 index exch 2 .writecvp
  1004.     } bind def
  1005.  
  1006. {//.dict begin .print pop end}
  1007.   bind
  1008. end
  1009.  
  1010. /write===only exch def
  1011. /write=== {1 index exch write===only (\n) writestring} bind def
  1012. /===only { (%stdout) (w) file exch write===only } bind def
  1013. /=== { ===only (\n) print } bind def
  1014.  
  1015. (END PROCS) VMDEBUG
  1016.  
  1017. % Define the font directory.
  1018. /FontDirectory false .setglobal 100 dict true .setglobal
  1019. .forcedef        % FontDirectory is local, systemdict is global
  1020.  
  1021. % Define the encoding dictionary.
  1022. /EncodingDirectory 16 dict def    % enough for Level 2 + PDF standard encodings
  1023.  
  1024. % Define .findencoding.  (This is redefined in Level 2.)
  1025. /.findencoding
  1026.  { //EncodingDirectory exch get exec
  1027.  } bind def
  1028. /.defineencoding
  1029.  { //EncodingDirectory 3 1 roll put
  1030.  } bind def
  1031. % If we've got the composite font extensions, define findencoding.
  1032. % To satisfy the Genoa FTS, findencoding must be a procedure, not an operator.
  1033. /rootfont where { pop /findencoding { .findencoding } def } if
  1034.  
  1035. % Define .registerencoding.
  1036. % NOTE: the name registeredencodings is known to (initialized by and shared
  1037. % with) the interpreter.
  1038. /.registerencoding {    % <index> <array> .registerencoding -
  1039.     % Check that the array is indexable.
  1040.     % (It might still be a string, but then the .namestring will fail.)
  1041.   dup 0 0 getinterval pop
  1042.     % Check that all the elements of the array are names.
  1043.   dup { .namestring pop } forall
  1044.     % Do the store.
  1045.   //registeredencodings 2 index 2 index readonly put pop pop
  1046. } bind odef
  1047. systemdict /registeredencodings .undef
  1048.  
  1049. % Load StandardEncoding.
  1050. %% Replace 1 (gs_std_e.ps)
  1051. (gs_std_e.ps) dup runlibfile VMDEBUG
  1052.  
  1053. % Load ISOLatin1Encoding.
  1054. %% Replace 1 (gs_il1_e.ps)
  1055. (gs_il1_e.ps) dup runlibfile VMDEBUG
  1056.  
  1057. % Define stubs for the Symbol and Dingbats encodings.
  1058. % Note that the first element of the procedure must be the file name,
  1059. % since gs_lev2.ps extracts it to set up the Encoding resource category.
  1060.  
  1061.   /SymbolEncoding { /SymbolEncoding .findencoding } bind def
  1062. %% Replace 3 (gs_sym_e.ps)
  1063.   EncodingDirectory /SymbolEncoding
  1064.    { (gs_sym_e.ps) //systemdict begin runlibfile SymbolEncoding end }
  1065.   bind put
  1066.  
  1067.   /DingbatsEncoding { /DingbatsEncoding .findencoding } bind def
  1068. %% Replace 3 (gs_dbt_e.ps)
  1069.   EncodingDirectory /DingbatsEncoding
  1070.    { (gs_dbt_e.ps) //systemdict begin runlibfile DingbatsEncoding end }
  1071.   bind put
  1072.  
  1073. (END FONTDIR/ENCS) VMDEBUG
  1074.  
  1075. % Construct a dictionary of all available devices.
  1076. % These are (read-only) device prototypes that can't be
  1077. % installed or have their parameters changed.  For this reason,
  1078. % the value in the dictionary is actually a 2-element writable array,
  1079. % to allow us to create a default instance of the prototype on demand.
  1080.  
  1081.     % Loop until the .getdevice gets a rangecheck.
  1082. errordict /rangecheck 2 copy get
  1083. errordict /rangecheck { pop stop } put    % pop the command
  1084.   0 { {dup .getdevice exch 1 add} loop} .internalstopped pop
  1085.   1 add dict  /devicedict 1 index def
  1086.   begin            % 2nd copy of count is on stack
  1087.    { dup .devicename exch
  1088.      dup wcheck { dup } { null } ifelse 2 array astore def
  1089.    } repeat
  1090.   end
  1091. put        % errordict /rangecheck
  1092. .clearerror
  1093. /devicenames devicedict { pop } forall devicedict length packedarray def
  1094.  
  1095. % Determine the default device.
  1096. /defaultdevice DISPLAYING
  1097.  { systemdict /DEVICE .knownget
  1098.     { devicedict 1 index known not
  1099.        { (Unknown device: ) print =
  1100.      flush /defaultdevice cvx 1 .quit
  1101.        }
  1102.       if
  1103.     }
  1104.     { 0 .getdevice .devicename
  1105.     }
  1106.    ifelse
  1107.  }
  1108.  { /nullpage
  1109.  }
  1110. ifelse
  1111. /.defaultdevicename 1 index def
  1112. finddevice    % make a copy
  1113. def
  1114. devicedict /Default devicedict .defaultdevicename get put
  1115.  
  1116. (END DEVS) VMDEBUG
  1117.  
  1118. % Define statusdict, for the benefit of programs
  1119. % that think they are running on a LaserWriter or similar printer.
  1120. %% Replace 1 (gs_statd.ps)
  1121. (gs_statd.ps) runlibfile
  1122.  
  1123. (END STATD) VMDEBUG
  1124.  
  1125. % Load the standard font environment.
  1126. %% Replace 1 (gs_fonts.ps)
  1127. (gs_fonts.ps) runlibfile
  1128.  
  1129. (END GS_FONTS) VMDEBUG
  1130.  
  1131. % Define the default halftone screen and BG/UCR functions now, so that
  1132. % it will bind in the original definitions of set[color]screen.
  1133. % We make this a procedure so we can call it again when switching devices.
  1134.  
  1135. % Use an ordered dither for low-resolution devices.
  1136. /.setloreshalftone {    % <dpi> .setloreshalftone -
  1137.     % The following 'ordered dither' spot function was contributed by
  1138.     % Gregg Townsend.  Thanks, Gregg!
  1139.    16.001 div 0            % not 16: avoids rounding problems
  1140.     { 1 add 7.9999 mul cvi exch 1 add 7.9999 mul cvi 16 mul add <
  1141.     0E 8E 2E AE 06 86 26 A6 0C 8C 2C AC 04 84 24 A4
  1142.     CE 4E EE 6E C6 46 E6 66 CC 4C EC 6C C4 44 E4 64
  1143.     3E BE 1E 9E 36 B6 16 96 3C BC 1C 9C 34 B4 14 94
  1144.     FE 7E DE 5E F6 76 D6 56 FC 7C DC 5C F4 74 D4 54
  1145.     01 81 21 A1 09 89 29 A9 03 83 23 A3 0B 8B 2B AB
  1146.     C1 41 E1 61 C9 49 E9 69 C3 43 E3 63 CB 4B EB 6B
  1147.     31 B1 11 91 39 B9 19 99 33 B3 13 93 3B BB 1B 9B
  1148.     F1 71 D1 51 F9 79 D9 59 F3 73 D3 53 FB 7B DB 5B
  1149.     0D 8D 2D AD 05 85 25 A5 0F 8F 2F AF 07 87 27 A7
  1150.     CD 4D ED 6D C5 45 E5 65 CF 4F EF 6F C7 47 E7 67
  1151.     3D BD 1D 9D 35 B5 15 95 3F BF 1F 9F 37 B7 17 97
  1152.     FD 7D DD 5D F5 75 D5 55 FF 7F DF 5F F7 77 D7 57
  1153.     02 82 22 A2 0A 8A 2A AA 00 80 20 A0 08 88 28 A8
  1154.     C2 42 E2 62 CA 4A EA 6A C0 40 E0 60 C8 48 E8 68
  1155.     32 B2 12 92 3A BA 1A 9A 30 B0 10 90 38 B8 18 98
  1156.     F2 72 D2 52 FA 7A DA 5A F0 70 D0 50 F8 78 D8 58
  1157.      > exch get 256 div
  1158.     }
  1159.    bind
  1160.         % Use correct, per-plane screens for CMYK devices only.
  1161.    //systemdict /setcolorscreen known processcolors 4 eq and
  1162.     { 3 copy 6 copy //setcolorscreen }
  1163.     { //setscreen }
  1164.    ifelse
  1165. } bind def
  1166. /.setloresscreen {    % <dpi> .setloresscreen -
  1167.   .setloreshalftone
  1168.   0 array cvx settransfer    % Genoa CET won't accept a packed array!
  1169.   /setstrokeadjust where { pop true setstrokeadjust } if
  1170. } bind def
  1171. % Use a 45-degree spot screen for high-resolution devices.
  1172. /.sethireshalftone {    % <dpi> .sethireshalftone <doscreen>
  1173.     % According to information published by Hewlett-Packard,
  1174.     % they use a 60 line screen on 300 DPI printers and
  1175.     % an 85 line screen on 600 DPI printers.
  1176.     % However, we use a 106 line screen, which produces smoother-
  1177.     % looking shades but fewer of them (32 vs. 50).
  1178.     % 46 was suggested as a good frequency value for printers
  1179.     % between 200 and 400 DPI, so we use it for lower resolutions.
  1180.     % Imagesetters need even higher frequency screens.
  1181.    //systemdict /DITHERPPI known
  1182.     { DITHERPPI
  1183.     }
  1184.     { dup cvi 100 idiv 15 .min
  1185.        {null 46 46 60 60 60 106 106 106 106 133 133 133 133 133 150}
  1186.       exch get
  1187.      }
  1188.    ifelse
  1189.    1 index 4.01 div .min    % at least a 4x4 cell
  1190.    45
  1191.     % The following screen algorithm is used by permission of the author.
  1192.     { 1 add 180 mul cos 1 0.08 add mul exch 2 add 180 mul cos 
  1193.       1 0.08 sub mul add 2 div % (C) 1989 Berthold K.P. Horn
  1194.     }
  1195.    bind
  1196.     % Determine whether we have lots of process colors.
  1197.     % If so, don't bother with color screening or gamma correction.
  1198.     % Also don't do gamma correction on very high-resolution devices.
  1199.     % (This should depend on dot gain, not resolution, but we don't
  1200.     % currently have a way to determine this.)
  1201.    currentdevice mark
  1202.      /RedValues 0 /GreenValues 0 /BlueValues 0 /GrayValues 0
  1203.    .dicttomark .getdeviceparams
  1204.    counttomark 2 idiv 1 sub { exch pop .min } repeat
  1205.    exch pop exch pop 32 lt 4 index 800 lt and 5 1 roll
  1206.     % Stack: doscreen dpi freq angle proc
  1207.     % Ghostscript currently doesn't use correct, per-plane halftones
  1208.     % unless setcolorscreen has been executed.  Since these are
  1209.     % computationally much more expensive than binary halftones,
  1210.     % we check to make sure they are really warranted, i.e., we have
  1211.     % a high-resolution CMYK device (i.e., not a display) with
  1212.     % fewer than 5 bits per plane (i.e., not a true-color device).
  1213.    4 -1 roll 150 ge
  1214.     { /setcolorscreen where
  1215.        { pop //systemdict /COLORSCREEN known
  1216.       { COLORSCREEN }
  1217.       { 3 index }
  1218.      ifelse
  1219.      dup false ne
  1220.       { 4 1 roll 3 copy 6 copy 13 -1 roll
  1221.     % For really high-quality screening on printers, we need to
  1222.     % give each plane its own screen angle.  Unfortunately,
  1223.     % this currently has very large space and time costs.
  1224.         true eq        % true => different angles,
  1225.                 % 0 => same angles
  1226.          { { 45 90 15 75 } { 3 1 roll exch pop 12 3 roll } forall
  1227.          }
  1228.         if //setcolorscreen
  1229.       }
  1230.       { pop //setscreen    % false => single binary screen
  1231.       }
  1232.      ifelse
  1233.        }
  1234.        { //setscreen        % setcolorscreen not known
  1235.        }
  1236.       ifelse
  1237.     }
  1238.     { //setscreen            % not high resolution
  1239.     }
  1240.    ifelse
  1241. } bind def
  1242. /.sethiresscreen {    % <dpi> .sethiresscreen -
  1243.   .sethireshalftone
  1244.             % Stack: doscreen
  1245.     {    % Set the transfer function to lighten up the grays.
  1246.     % We correct at the high end so that very light grays
  1247.     % don't disappear completely if they darken <1 screen pixel.
  1248.     % Parameter values closer to 1 are better for devices with
  1249.     % less dot spreading; lower values are better with more spreading.
  1250.     % The value 0.8 is a compromise that will probably please no one!
  1251.     %
  1252.     % Because of a bug in FrameMaker, we have to accept operands
  1253.     % outside the valid range of [0..1].
  1254.       { dup dup 0.0 gt exch 1.0 lt and
  1255.      { 0.8 exp dup dup 0.9375 gt exch 0.999 lt and    % > 15/16
  1256.         { .currentscreenlevels 1 sub    % tweak to avoid boundary
  1257.           1 exch div 1 exch sub .min
  1258.         }
  1259.        if
  1260.      }
  1261.     if
  1262.       }
  1263.     }
  1264.     {    % Set the transfer function to the identity.
  1265.       0 array cvx        % Genoa CET won't accept a packed array!
  1266.     }
  1267.    ifelse settransfer
  1268.    /setstrokeadjust where { pop false setstrokeadjust } if
  1269.     % Increase fill adjustment so that we effectively use Adobe's
  1270.     % any-part-of-pixel rule.
  1271.    0.5 .setfilladjust
  1272. } bind def
  1273. % Set the default screen and BG/UCR.
  1274. /.setdefaultbgucr {
  1275.   systemdict /setblackgeneration known {
  1276.     { pop 0 } dup setblackgeneration setundercolorremoval
  1277.   } if
  1278. } bind def
  1279. /.useloresscreen {    % - .useloresscreen <bool>
  1280.     % Compute min(|dpi x|,|dpi y|) as the definition of the resolution.
  1281.   72 72 matrix defaultmatrix dtransform abs exch abs .min
  1282.   dup 150 lt //systemdict /DITHERPPI known not and
  1283. } bind def
  1284.  
  1285. % The following implementation uses LL2 extensions, but only in stopped
  1286. % contexts so that with LL1, the .set??reshalftone will be used.
  1287. %
  1288. %    - .getdefaulthalftone <halftonedict> true    if default found
  1289. %                  false            
  1290. /.getdefaulthalftone {
  1291.   % try the device to see if it has a default halftone
  1292.   { currentdevice /HalftoneDefault gsgetdeviceprop } stopped
  1293.   { pop pop false }        % no device property
  1294.   { dup type /dicttype eq { true } { pop false } ifelse }
  1295.   ifelse
  1296.   % stack: <halftonedict> true    if default found
  1297.   %         false          not found
  1298.   dup not
  1299.   { % device did not provide a default, try Resource
  1300.     pop { /Default /Halftone /findresource .systemvar exec } stopped 
  1301.     { pop pop false } { true } ifelse
  1302.   }
  1303.   if
  1304. } bind def
  1305.  
  1306. /.setdefaulthalftone {
  1307.   .getdefaulthalftone 
  1308.   { sethalftone }
  1309.   { % default not found
  1310.     .useloresscreen { .setloreshalftone } { .sethireshalftone pop } ifelse
  1311.   }
  1312.   ifelse
  1313. } bind def
  1314.  
  1315. /.setdefaultscreen {
  1316.   .useloresscreen { .setloresscreen } { .sethiresscreen } ifelse
  1317.   .setdefaultbgucr
  1318. } bind def
  1319.  
  1320. % Load the initialization files for optional features.
  1321. %% Replace 4 INITFILES
  1322. systemdict /INITFILES known
  1323.  { INITFILES { dup runlibfile VMDEBUG } forall
  1324.  }
  1325. if
  1326.  
  1327. % If Level 2 (or higher) functionality is implemented, enable it now.
  1328. /.setlanguagelevel where {
  1329.   pop 2 .setlanguagelevel
  1330.     % If the resource machinery is loaded, fix up some things now.
  1331.   /.fixresources where { pop .fixresources } if
  1332. } if
  1333. /ll3dict where {
  1334.   pop 3 .setlanguagelevel
  1335. } if
  1336.  
  1337. (END INITFILES) VMDEBUG
  1338.  
  1339. % Create a null font.  This is the initial font.
  1340. 8 dict dup begin
  1341.   /FontMatrix [ 1 0 0 1 0 0 ] readonly def
  1342.   /FontType 3 def
  1343.   /FontName () def
  1344.   /Encoding StandardEncoding def
  1345.   /FontBBox { 0 0 0 0 } readonly def % executable is bogus, but customary ...
  1346.   /BuildChar { pop pop 0 0 setcharwidth } bind def
  1347.   /PaintType 0 def        % shouldn't be needed!
  1348. end
  1349. /NullFont exch definefont setfont
  1350.  
  1351. % Define NullFont as the font.
  1352. /NullFont currentfont def
  1353.  
  1354. % Load initial fonts from FONTPATH directories, Fontmap file,
  1355. % and/or .getccfont as appropriate.
  1356. .loadinitialfonts
  1357.  
  1358. % Remove NullFont from FontDirectory, so it can't be accessed by mistake.
  1359. /undefinefont where {
  1360.   pop /NullFont undefinefont
  1361. } {
  1362.   FontDirectory /NullFont .undef
  1363. } ifelse
  1364.  
  1365. (END FONTS) VMDEBUG
  1366.  
  1367. % Restore the real definition of runlibfile.
  1368. /runlibfile /.runlibfile load def
  1369. currentdict /.runlibfile .undef
  1370.  
  1371. % Bind all the operators defined as procedures.
  1372. /.bindoperators        % binds operators in currentdict
  1373.  { % Temporarily disable the typecheck error.
  1374.    errordict /typecheck 2 copy get
  1375.    errordict /typecheck { pop } put    % pop the command
  1376.    currentdict
  1377.     { dup type /operatortype eq
  1378.        { % This might be a real operator, so bind might cause a typecheck,
  1379.      % but we've made the error a no-op temporarily.
  1380.      .bind        % do a real bind even if NOBIND is set
  1381.        }
  1382.       if pop pop
  1383.     } forall
  1384.    put
  1385.  } def
  1386. NOBIND DELAYBIND or not { .bindoperators } if
  1387.  
  1388. % Establish a default environment.
  1389.  
  1390. defaultdevice
  1391. % The following line used to skip setting of page size and resolution if
  1392. % NODISPLAY was selected.  We think this was only to save time and memory,
  1393. % and it is a bad idea because it prevents setting the resolution in this
  1394. % situation, which pstoedit (among other programs) relies on.
  1395. %DISPLAYING not { setdevice (%END DISPLAYING) .skipeof } if
  1396. systemdict /DEVICEWIDTH known
  1397. systemdict /DEVICEHEIGHT known or
  1398. systemdict /DEVICEWIDTHPOINTS known or
  1399. systemdict /DEVICEHEIGHTPOINTS known or
  1400. systemdict /DEVICEXRESOLUTION known or
  1401. systemdict /DEVICEYRESOLUTION known or
  1402. systemdict /PAPERSIZE known or
  1403. not { (%END DEVICE) .skipeof } if
  1404. % Let DEVICE{WIDTH,HEIGHT}[POINTS] override PAPERSIZE.
  1405. systemdict /PAPERSIZE known
  1406. systemdict /DEVICEWIDTH known not and
  1407. systemdict /DEVICEHEIGHT known not and
  1408. systemdict /DEVICEWIDTHPOINTS known not and
  1409. systemdict /DEVICEHEIGHTPOINTS known not and
  1410.  {    % Convert the paper size to device dimensions.
  1411.    true statusdict /.pagetypenames get
  1412.     { PAPERSIZE eq
  1413.        { PAPERSIZE load
  1414.          dup 0 get /DEVICEWIDTHPOINTS exch def
  1415.          1 get /DEVICEHEIGHTPOINTS exch def
  1416.          pop false exit
  1417.        }
  1418.       if
  1419.     }
  1420.    forall
  1421.     { (Unknown paper size: ) print PAPERSIZE ==only (.) =
  1422.     }
  1423.    if
  1424.  }
  1425. if
  1426. % Adjust the device parameters per the command line.
  1427. % It is possible to specify resolution, pixel size, and page size;
  1428. % since any two of these determine the third, conflicts are possible.
  1429. % We simply pass them to .setdeviceparams and let it sort things out.
  1430.    mark /HWResolution null /HWSize null /PageSize null .dicttomark
  1431.    .getdeviceparams .dicttomark begin
  1432.    mark
  1433.     % Check for resolution.
  1434.    /DEVICEXRESOLUTION where dup
  1435.     { exch pop HWResolution 0 DEVICEXRESOLUTION put }
  1436.    if
  1437.    /DEVICEYRESOLUTION where dup
  1438.     { exch pop HWResolution 1 DEVICEYRESOLUTION put }
  1439.    if
  1440.    or { /HWResolution HWResolution } if
  1441.     % Check for device sizes specified in pixels.
  1442.    /DEVICEWIDTH where dup
  1443.     { exch pop HWSize 0 DEVICEWIDTH put }
  1444.    if
  1445.    /DEVICEHEIGHT where dup
  1446.     { exch pop HWSize 1 DEVICEHEIGHT put }
  1447.    if
  1448.    or { /HWSize HWSize } if
  1449.     % Check for device sizes specified in points.
  1450.    /DEVICEWIDTHPOINTS where dup
  1451.     { exch pop PageSize 0 DEVICEWIDTHPOINTS put }
  1452.    if
  1453.    /DEVICEHEIGHTPOINTS where dup
  1454.     { exch pop PageSize 1 DEVICEHEIGHTPOINTS put }
  1455.    if
  1456.    or { /PageSize PageSize } if
  1457.     % Check whether any parameters were set.
  1458.    dup mark eq { pop } { defaultdevice putdeviceprops } ifelse
  1459.    end
  1460. %END DEVICE
  1461. % Set any device properties defined on the command line.
  1462. % If BufferSpace is defined but not MaxBitmap, set MaxBitmap to BufferSpace.
  1463. systemdict /BufferSpace known
  1464. systemdict /MaxBitmap known not and
  1465.  { systemdict /MaxBitmap BufferSpace put
  1466.  } if
  1467. dup getdeviceprops
  1468. counttomark 2 idiv
  1469.  { systemdict 2 index known
  1470.     { pop dup load counttomark 2 roll }
  1471.     { pop pop }
  1472.    ifelse
  1473.  } repeat
  1474. counttomark dup 0 ne
  1475.  { 2 add -1 roll putdeviceprops }
  1476.  { pop pop }
  1477. ifelse
  1478. % If the initial device parameters are invalid, the setdevice may fail.
  1479. % Trap this and produce a reasonable error message.
  1480. { setdevice }        % does an erasepage
  1481. DEBUG { exec false } { .internalstopped } ifelse {
  1482.   (**** Unable to open the initial device, quitting.) = flush 1 .quit
  1483. } if
  1484.  
  1485. % If the media size is fixed, update the current page device dictionary.
  1486. FIXEDMEDIA
  1487. dup { pop systemdict /.currentpagedevice known } if
  1488. dup { pop .currentpagedevice exch pop } if
  1489. not { (%END MEDIA) .skipeof } if
  1490. currentpagedevice dup length dict .copydict
  1491. dup /Policies
  1492.     % Stack: <pagedevice> <pagedevice> /Policies
  1493. 1 index /InputAttributes
  1494. 2 copy get dup length dict .copydict
  1495.     % Stack: <pagedevice> <pagedevice> /Policies <pagedevice>
  1496.     %   /InputAttributes <inputattrs'>
  1497. dup 0 2 copy get dup length dict .copydict
  1498.     % Stack: <pagedevice> <pagedevice> /Policies <pagedevice>
  1499.     %   /InputAttributes <inputattrs'> <inputattrs'> 0 <attrs0'>
  1500. dup /PageSize 7 index /PageSize get
  1501. put                % PageSize in 0
  1502. put                % 0 in InputAttributes
  1503. put                % InputAttributes in pagedevice
  1504. % Also change the page size policy so we don't get an error.
  1505.     % Stack: <pagedevice> <pagedevice> /Policies
  1506. 2 copy get dup length dict .copydict
  1507.     % Stack: <pagedevice> <pagedevice> /Policies <policies'>
  1508. dup /PageSize 7 put        % PageSize in Policies
  1509. put                % Policies in pagedevice
  1510. .setpagedevice
  1511. %END MEDIA
  1512. %END DISPLAYING
  1513.  
  1514. (END DEVICE) VMDEBUG
  1515.  
  1516. % Establish a default upper limit in the character cache,
  1517. % namely, enough room for a 18-point character at the resolution
  1518. % of the default device, or for a character consuming 1% of the
  1519. % maximum cache size, whichever is larger.
  1520. mark
  1521.     % Compute limit based on character size.
  1522.   18 dup dtransform
  1523.   exch abs cvi 31 add 32 idiv 4 mul    % X raster
  1524.   exch abs cvi mul        % Y
  1525.     % Compute limit based on allocated space.
  1526.   cachestatus pop pop pop pop pop exch pop 0.01 mul cvi
  1527.   .max dup 10 idiv exch
  1528. setcacheparams
  1529. % Conditionally disable the character cache.
  1530. NOCACHE { 0 setcachelimit } if
  1531.  
  1532. (END CONFIG) VMDEBUG
  1533.  
  1534. % Initialize graphics.
  1535.  
  1536. .setdefaultscreen
  1537. initgraphics
  1538.  
  1539. % The interpreter relies on there being at least 2 entries
  1540. % on the graphics stack.  Establish the second one now.
  1541. gsave
  1542.  
  1543. % Define some control sequences as no-ops.
  1544. % This is a hack to get around problems
  1545. % in some common PostScript-generating applications.
  1546. <04> cvn { } def        % Apple job separator
  1547. <0404> cvn { } def        % two of the same
  1548. <1b> cvn { } def        % MS Windows LaserJet 4 prologue
  1549.                 % (UEL = ESC %-12345X)
  1550. <1b45> cvn { } def        % PJL reset prologue (ESC E)
  1551. <1b451b> cvn { } def        % PJL reset epilogue (ESC E + UEL)
  1552. <041b> cvn { } def        % MS Windows LaserJet 4 epilogue (^D + UEL)
  1553. (\001M) cvn            % TBCP initiator
  1554.  { currentfile /TBCPDecode filter cvx exec
  1555.  } bind def
  1556. /@PJL                % H-P job control
  1557.  { currentfile //=string readline { pop } if
  1558.  } bind def
  1559.  
  1560. % If we want a "safer" system, disable some obvious ways to cause havoc.
  1561. .currentglobal true .setglobal
  1562. /SAFETY 2 dict
  1563.   dup /safe false put
  1564.   dup /tempfiles 10 dict readonly put
  1565. readonly def
  1566. .setglobal
  1567.  
  1568. % Convert a path name into a string suitable for filenameforall
  1569. % For example: (a\\b*?c) to (a\\\\b\\*\\?c)
  1570. /.makepathtemplate {    % str1 -- str2
  1571.    dup length dup add string 0    % result string up to twice the size
  1572.    0 1 4 index length 1 sub {
  1573.      3 index exch get
  1574.      dup 92 eq {        % \ -> \\
  1575.         2 index 2 index 92
  1576.         put
  1577.         exch 1 add exch
  1578.      } 
  1579.      if
  1580.      dup 42 eq {        % * -> \*
  1581.         2 index 2 index 92
  1582.         put
  1583.         exch 1 add exch
  1584.      } 
  1585.      if
  1586.      dup 63 eq {        % ? -> \?
  1587.         2 index 2 index 92
  1588.         put
  1589.         exch 1 add exch
  1590.      } 
  1591.      if
  1592.      2 index 2 index 3 -1 roll put 1 add
  1593.    } for
  1594.    0 exch getinterval exch pop
  1595. } bind def
  1596.  
  1597. /.locksafe {
  1598.   SAFETY /safe get not {
  1599.     <<
  1600.       /PermitFileReading [
  1601.         currentuserparams /PermitFileReading get aload pop
  1602.     { .makepathtemplate 
  1603.           dup .filenamedirseparator concatstrings (*) concatstrings 
  1604.       exch        % put string below this procedure
  1605.     }
  1606.         /LIBPATH .systemvar { 1 index exec } forall
  1607.         /FONTPATH .systemvar  { 1 index exec } forall
  1608.     currentsystemparams /GenericResourceDir get 1 index exec 
  1609.     currentsystemparams /FontResourceDir get exch exec
  1610.       ]
  1611.       /LockFilePermissions true
  1612.     >> setuserparams
  1613.   }
  1614.   if
  1615.   % Pretty much the same as "<< /.LockSafetyParams true >> setpagedevice"
  1616.   % but without some of the side effects.
  1617.   mark currentdevice null true mark /.LockSafetyParams true .putdeviceparamsonly
  1618.   counttomark 2 eq 
  1619.   { cleartomark }
  1620.   { cleartomark cleartomark pop pop pop
  1621.     /invalidaccess /.locksafe signalerror
  1622.   } ifelse
  1623.   //SAFETY /safe //true .forceput % overrides readonly
  1624. } .bind executeonly odef
  1625.  
  1626. /.setsafe
  1627. {
  1628.   SAFETY /safe get not {
  1629.     <<
  1630.       PARANOIDSAFER {        % only PARANOIDSAFER locks down reading files
  1631.         /PermitFileReading [ ]
  1632.       } if
  1633.       /PermitFileWriting [ ]
  1634.       /PermitFileControl [ ]
  1635.     >> setuserparams
  1636.   }
  1637.   if
  1638.   .locksafe
  1639. } .bind executeonly odef
  1640.  
  1641. /deletefile {
  1642.   count 1 lt {
  1643.     //deletefile /stackunderflow signalerror
  1644.   }
  1645.   if
  1646.   dup { deletefile } stopped {
  1647.     pop //deletefile $error /errorname get signalerror
  1648.   } {
  1649.     % deletefile succeeded. Remove from tempfile list if present
  1650.     //SAFETY /tempfiles get exch cvn 2 copy known {
  1651.       .forceundef
  1652.     } {
  1653.       pop pop
  1654.     }
  1655.     ifelse
  1656.   }
  1657.   ifelse
  1658. } .bind executeonly odef
  1659.  
  1660. % If a file is opened with .tempfile with SAFER not (yet) set,
  1661. % the file can be deleted later, even if SAFER is set.
  1662. /.tempfile {
  1663.   .tempfile    % filename file
  1664.   //SAFETY /tempfiles get 2 index true .forceput
  1665. } .bind executeonly odef
  1666.  
  1667. % If we are running in SAFER mode, lock things down
  1668. SAFER { .setsafe } if
  1669.  
  1670. % If we delayed binding, make it possible to do it later.
  1671. /.bindnow {
  1672.   //systemdict begin .bindoperators end
  1673.   % Temporarily disable the typecheck error.
  1674.   errordict /typecheck 2 copy get
  1675.   errordict /typecheck { pop } put    % pop the command
  1676.   0 1 .delaycount 1 sub { .delaybind exch get .bind pop } for
  1677.   //systemdict /.delaybind {} .forceput    % reclaim the space
  1678.   //systemdict /.bindnow .forceundef    % ditto
  1679.   put
  1680.   //systemdict /.forcedef .forceundef        % remove temptation
  1681.   //systemdict /.forceput .forceundef        % ditto
  1682.   //systemdict /.forceundef .forceundef        % ditto
  1683. } .bind odef
  1684.  
  1685. % Turn off array packing, since some PostScript code assumes that
  1686. % procedures are writable.
  1687. false setpacking
  1688.  
  1689. (END INIT) VMDEBUG
  1690.  
  1691. /.currentuserparams where {
  1692.   pop
  1693.     % Remove real user params from psuserparams.
  1694.   mark .currentuserparams counttomark 2 idiv {
  1695.     pop psuserparams exch undef
  1696.   } repeat pop
  1697.     % Update the copy of the user parameters.
  1698.   mark .currentuserparams counttomark 2 idiv {
  1699.     userparams 3 1 roll .forceput    % userparams is read-only
  1700.   } repeat pop
  1701.     % Turn on idiom recognition, if available.
  1702.   currentuserparams /IdiomRecognition known {
  1703.     /IdiomRecognition true .definepsuserparam
  1704.   } if
  1705.   psuserparams readonly pop
  1706.   systemdict /.definepsuserparam undef
  1707.     % Save a copy of userparams for use with save/restore
  1708.     % (and, if implemented, context switching).
  1709.   .currentglobal false .setglobal
  1710.      mark userparams { } forall .dicttomark readonly
  1711.      /userparams exch .forcedef        % systemdict is read-only
  1712.   .setglobal
  1713. } if
  1714. /.currentsystemparams where {
  1715.   pop
  1716.     % Remove real system params from pssystemparams.
  1717.   mark .currentsystemparams counttomark 2 idiv {
  1718.     pop pssystemparams exch .forceundef
  1719.   } repeat pop
  1720. } if
  1721.  
  1722. % Conditionally turn image interpolation on or off.
  1723. currentdict /INTERPOLATE known not { (%END INTERPOLATE) .skipeof } if
  1724.  
  1725. /.interpolate {
  1726.   dup /Interpolate .knownget not { //false } if
  1727.   /INTERPOLATE .systemvar ne {
  1728.     dup gcheck .currentglobal exch .setglobal
  1729.     exch dup length dict copy
  1730.     dup /Interpolate /INTERPOLATE .systemvar put
  1731.     exch .setglobal
  1732.   } if
  1733. } bind odef
  1734.  
  1735. /colorimage
  1736.   { /INTERPOLATE .systemvar
  1737.       { .currentglobal                    % w h bit [] {}...{} multi ncomp glob
  1738.         //false .setglobal
  1739.         9 dict begin                      % w h bit [] {}...{} multi ncomp glob
  1740.         2 index { 1 index 7 add } { 8 } ifelse
  1741.         copy gsave pop                    % preserve the arguments
  1742.         { 0 /DeviceGray 0 /DeviceRGB /DeviceCMYK }
  1743.         1 index get setcolorspace         % ... glob w h bit [] {}...{} multi ncomp
  1744.         {0 1 0 1 0 1 0 1}
  1745.         1 index 2 mul 0 exch              % ... glob w h bit [] {}...{} multi ncomp {0 1 ...} 0 2*ncomp
  1746.         getinterval /Decode exch def      % ... glob w h bit [] {}...{} multi ncomp
  1747.         exch dup                          % ... glob w h bit [] {}...{} ncomp multi multi
  1748.         /MultipleDataSources exch def     % ... glob w h bit [] {}...{} ncomp multi
  1749.         { array astore} { pop } ifelse    % ... glob w h bit [] [{}...{}]
  1750.         /DataSource exch def              % ... glob w h bit []
  1751.         /ImageMatrix exch def             % ... glob w h bit
  1752.         /BitsPerComponent exch def        % ... glob w h
  1753.         /Height exch def                  % ... glob w
  1754.         /Width exch def                   % ... glob 
  1755.         /ImageType 1 def
  1756.         /Interpolate //true def
  1757.         .setglobal currentdict end        % ... <<>>
  1758.         image grestore
  1759.         exch { 4 add } { 6 } ifelse
  1760.         { pop } repeat                    % -
  1761.       }
  1762.       { colorimage
  1763.       }
  1764.     ifelse
  1765.   } bind odef
  1766.  
  1767. /image
  1768.   { dup type /dicttype eq
  1769.       { dup /ImageType get 3 eq
  1770.           { .currentglobal //false .setglobal exch
  1771.             dup length dict copy begin .setglobal 
  1772.             /DataDict DataDict .interpolate def
  1773.             /MaskDict MaskDict .interpolate def
  1774.             currentdict end
  1775.           }
  1776.           { .interpolate 
  1777.           }
  1778.         ifelse
  1779.         image
  1780.       }
  1781.       { /INTERPOLATE .systemvar
  1782.           { .currentglobal //false .setglobal
  1783.             8 dict begin .setglobal
  1784.             /ImageType 1 def
  1785.             /DataSource 1 index def
  1786.             /ImageMatrix 2 index def
  1787.             /BitsPerComponent 3 index def
  1788.             /Decode {0 1} def
  1789.             /Height 4 index def
  1790.             /Width 5 index def
  1791.             /Interpolate //true def
  1792.             currentdict end
  1793.             gsave /DeviceGray setcolorspace image grestore
  1794.             5 { pop } repeat
  1795.           }
  1796.           { image
  1797.           }
  1798.         ifelse
  1799.       }
  1800.     ifelse
  1801.   } bind odef
  1802.  
  1803. /imagemask {
  1804.   dup type /dicttype eq {
  1805.     .interpolate imagemask
  1806.   } {
  1807.     /INTERPOLATE .systemvar {
  1808.       .currentglobal //false .setglobal
  1809.       8 dict begin .setglobal
  1810.       /ImageType 1 def
  1811.       /DataSource 1 index def
  1812.       /ImageMatrix 2 index def
  1813.       /BitsPerComponent 1 def
  1814.       2 index { {1 0} } { {0 1} } ifelse /Decode exch def
  1815.       /Height 4 index def
  1816.       /Width 5 index def
  1817.       /Interpolate //true def
  1818.       currentdict end imagemask 5 { pop } repeat
  1819.     } {
  1820.       imagemask
  1821.     } ifelse
  1822.   } ifelse
  1823. } bind odef
  1824.  
  1825. currentdict /.interpolate undef
  1826.  
  1827. %END INTERPOLATE
  1828.  
  1829. % Establish local VM as the default.
  1830. false /setglobal where { pop setglobal } { .setglobal } ifelse
  1831. $error /.nosetlocal false put
  1832.  
  1833. (END GLOBAL) VMDEBUG
  1834.  
  1835. /.savelocalstate where {
  1836.     % If we might create new contexts, save away copies of all dictionaries
  1837.     % referenced from systemdict that are stored in local VM,
  1838.     % and also save a copy of the initial gstate.
  1839.   pop .savelocalstate
  1840. } {
  1841.     % If we're *not* running in a multi-context system and FAKEFONTS is
  1842.     % defined, add the fake fonts to LocalFontDirectory.
  1843.   .definefakefonts    % current VM is local
  1844. } ifelse
  1845.  
  1846. % Remove systemdict entries for things that have been bound in where used
  1847. % and that shouldn't be accessible by name, and close up systemdict.
  1848. currentdict /filterdict .undef
  1849. currentdict /.cidfonttypes .undef
  1850. currentdict /.colorrenderingtypes .undef
  1851. currentdict /.formtypes .undef
  1852. currentdict /.halftonetypes .undef
  1853. currentdict /.imagetypes .undef
  1854. currentdict /.imagemasktypes .undef
  1855. currentdict /.patterntypes .undef
  1856. currentdict /.shadingtypes .undef
  1857. currentdict /.wheredict .undef
  1858. end
  1859.  
  1860. % Clean up VM, and enable GC.
  1861. /vmreclaim where
  1862.  { pop NOGC not { 2 vmreclaim 0 vmreclaim } if
  1863.  } if
  1864. DELAYBIND not {
  1865.   systemdict /.forcedef .undef        % remove temptation
  1866.   systemdict /.forceput .undef        % ditto
  1867.   systemdict /.forceundef .undef    % ditto
  1868. } if
  1869. WRITESYSTEMDICT not { systemdict readonly pop } if
  1870.  
  1871. (END GC) VMDEBUG
  1872.  
  1873. % The Adobe AGM_Core used by Illustrator 9 has some code that breaks
  1874. % if the 'product' is not (Adobe PostScript Parser). A bug has been
  1875. % submitted to Adobe since this also fails with Acrobat Distiller.
  1876. % As a temporary work around, the following HACK will work for
  1877. % devices without spot color support. Once Ghostscript can
  1878. % support DeviceN and spot color separations this will need to
  1879. % be 'true' in some cases.
  1880. userdict /AGM_preserve_spots false put
  1881.  
  1882. % The interpreter will run the initial procedure (start).
  1883.